home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Tools - Objects / MacApp / MacApp 3.0a2 / UserStartup•MacApp < prev   
Text File  |  1991-05-01  |  975b  |  25 lines
  1. # Copyright © 1986-1990 Apple Computer, Inc.  All rights reserved.
  2. # Drop this file in your MPW Folder
  3.  
  4. #    Set the location of the MacApp Folder
  5. # If the folder can't be found; automatically prompts user for it and
  6. # remember where the folder was found
  7.  
  8. if  ¬ "{MacApp}" && "`Exists "{ShellDirectory}"MacApp_Folder`" 
  9.     Set MacApp     "`Catenate "{ShellDirectory}"MacApp_Folder`"
  10. End
  11. if ¬ "`Exists "{ShellDirectory}"MacApp_Folder`" || ¬ "`Exists "{MacApp}"`"
  12.     Set exit 0; Set temp "{Boot}"; Loop; ∂
  13.     Set temp "`(GetFileName "{temp}" -q -d -m "Where is your ∂"MacApp∂" folder?")≥dev:null`"; ∂
  14.     if "{temp}"!=""; Echo -n "{temp}" > "{ShellDirectory}"MacApp_Folder; ∂
  15.     Set MacApp "{temp}"; Else; exit; End; ∂
  16.     (set x "`Files "{temp}"Startup`") ≥dev:null; ∂
  17.     if  "{x}"==""; Alert MacApp - The ∂"{temp}∂" folder does not contain MacApp files.; else; break; end; End; ∂
  18.     set exit 1 ;
  19. End
  20.  
  21. Set MacApp     "`Catenate "{ShellDirectory}"MacApp_Folder`"
  22. Export MacApp
  23.  
  24. Execute "{MacApp}"Startup
  25.